﻿Public Class MenuForm

    Private Sub tsmi_newProject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_newProject.Click
        ProjectForm.MdiParent = Me
        ProjectForm.Show()
    End Sub

    Private Sub tsmi_searchProject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_searchProject.Click
        SearchProjectsForm.MdiParent = Me
        SearchProjectsForm.Show()
    End Sub

    Private Sub tsmi_newTask_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_newTask.Click
        TaskForm.MdiParent = Me
        TaskForm.Show()
    End Sub

    Private Sub tsmi_searchTask_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_searchTask.Click
        searchTasksForm.MdiParent = Me
        searchTasksForm.Show()
    End Sub

    Private Sub tsmi_newResource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_newResource.Click
        ResourceForm.MdiParent = Me
        ResourceForm.Show()
    End Sub

    Private Sub tsmi_searchResource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_searchResource.Click
        SearchResourcesForm.MdiParent = Me
        SearchResourcesForm.Show()
    End Sub

    Private Sub tsmi_newTaskType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_newTaskType.Click
        Dim taskTypeForm As GenericForm
        taskTypeForm = New GenericForm("TASKTYPE")
        taskTypeForm.MdiParent = Me
        taskTypeForm.Show()
    End Sub

    Private Sub tsmi_searchTaskType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_searchTaskType.Click
        Dim searchTaskTypeForm As SearchGenericForm
        searchTaskTypeForm = New SearchGenericForm("TASKTYPE")
        searchTaskTypeForm.MdiParent = Me
        searchTaskTypeForm.Show()
    End Sub

    Private Sub tsmi_newRole_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RoleToolStripMenuItem.Click
        Dim roleForm As GenericForm
        roleForm = New GenericForm("ROLE")
        roleForm.MdiParent = Me
        roleForm.Show()
    End Sub

    Private Sub tsmi_searchRole_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_searchRole.Click
        Dim searchRoleForm As SearchGenericForm
        searchRoleForm = New SearchGenericForm("ROLE")
        searchRoleForm.MdiParent = Me
        searchRoleForm.Show()
    End Sub

    Private Sub tsmi_newActivity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_newActivity.Click
        Dim activityForm As GenericForm
        activityForm = New GenericForm("ACTIVITY")
        activityForm.MdiParent = Me
        activityForm.Show()
    End Sub

    Private Sub tsmi_searchActivity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_searchActivity.Click
        Dim searchActivityForm As SearchGenericForm
        searchActivityForm = New SearchGenericForm("ACTIVITY")
        searchActivityForm.MdiParent = Me
        searchActivityForm.Show()
    End Sub

    Private Sub ListadosDeProyectosFinalizadosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadosDeProyectosFinalizadosToolStripMenuItem.Click
        proyectoRecurso.MdiParent = Me
        proyectoRecurso.Show()
    End Sub

    Private Sub ListadosDeTareasPorProyectosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadosDeTareasPorProyectosToolStripMenuItem.Click
        reportTaskActivity.MdiParent = Me
        reportTaskActivity.Show()
    End Sub

    Private Sub LISTADOSDERECURSOSPORPROYECTOSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LISTADOSDERECURSOSPORPROYECTOSToolStripMenuItem.Click
        listadosRecursosProyectos.MdiParent = Me
        listadosRecursosProyectos.Show()
    End Sub

    Private Sub EstadisticasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EstadisticasToolStripMenuItem.Click
        Proyectos_desfasados.MdiParent = Me
        Proyectos_desfasados.Show()
    End Sub

    Private Sub tsmi_newRole_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmi_newRole.Click
        Dim roleForm As GenericForm
        roleForm = New GenericForm("ROLE")
        roleForm.MdiParent = Me
        roleForm.Show()
    End Sub
End Class